home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / programs / swift45i.zip / QUEST.Q-A < prev    next >
Text File  |  1992-05-10  |  798b  |  50 lines
  1. Clearscreen
  2. PostInfo
  3. Variable 34 Name
  4. Variable 24 City
  5. Variable 15 Password
  6. Variable 10 Level
  7. Variable 5 Time
  8. Let Time = "1:00"
  9.  
  10. GetFile USERS.BBS
  11. NewFile USERS.DAT
  12.  
  13. Display "Current Users are:|"
  14. Repeat 2 times
  15.  SkipBytes 1
  16.  Read Name
  17.  SkipBytes 2
  18.  Read City
  19.  SkipBytes 2
  20.  Read Password
  21.  SkipBytes 54
  22.  ReadNum Level
  23.  SkipBytes 24
  24.  Display "|"
  25.  Display Name
  26.  TabDisplay 21 Name
  27.  TabDisplay 21 City
  28.  TabDisplay 10 Level
  29.  Write Name
  30.  Write City
  31.  Write Password
  32.  WriteNum Level
  33. EndRepeat
  34. Display "|Continue? "
  35. GetChoice "YN" Anykey
  36. Display "|" User
  37. Display "|" Sysop
  38. Display "|" System
  39. Display Time
  40. Let Time = "12:00"
  41. Display Time
  42. Display "|Returning to SwiftBBS|"
  43. Display "|Enter New time: "
  44. Ask 5 Time
  45. Quit
  46.  
  47. Display "past Quit signal"
  48. SetFlag C6 OFF
  49.  
  50.